(pgg-gpg-process-region): Accept any remaining pending output coming

after the status change.

diff --git a/lisp/pgg-gpg.el b/lisp/pgg-gpg.el
index 85a4e17d592a95eb7229febc6cbf50eda5434def..406909abe2bffe94e9d0e0338453aed120d0693f 100644 (file)
--- a/lisp/pgg-gpg.el
+++ b/lisp/pgg-gpg.el
@@ -106,6 +106,9 @@
          (process-send-eof process)
          (while (eq 'run (process-status process))
            (accept-process-output process 5))
+         ;; Accept any remaining pending output coming after the
+         ;; status change.
+         (accept-process-output process 5)
          (setq status (process-status process)
                exit-status (process-exit-status process))
          (delete-process process)